10 REM ***FIRST AID***
20 PRINT"[147]":POKE53280,0:POKE53281,0:POKE646,3
25 PRINT"          PLEASE STAND BY"
30 DIMM$(50),A$(50,100)
40 A=1
50 READM$(A):IFM$(A)=""THEN70
60 A=A+1:GOTO50
70 A=1:B=1
80 READA$(A,B)
90 IFA$(A,B)="9"THENGOTO120
100 IFA$(A,B)=""THENA=A+1:B=1:GOTO80
110 B=B+1:GOTO80
120 PRINT"[147]":PRINT"[145]FIRST AID SELECTION"
130 Q=1:S=0:RR=1
140 FORA=1TO34:G=A
150 IFA>20THENIFQTHENQ=0:PRINT"":S=24
160 IFA>26THENG=-16+A-26
170 PRINT"[158]"TAB(S)CHR$(G+64)"[159]"SPC(1)M$(A)
180 NEXT
190 POKE198,0
200 PRINT"[158]ENTER LETTER OR NUMBER:[159]"
210 GETA$:IFA$=""THEN210
220 A=ASC(A$)-64
225 IFASC(A$)<49ORASC(A$)>90THEN210
230 IFA<1THENA=91+(A+15)-64
240 IFA>34ORA<0THEN210
250 PRINT"[147]"
260 FORB=1TO100
270 IFB>10ANDA=14ANDRR=1THENPRINT" [158]PRESS ANY KEY TO CONTINUE[159]":GOSUB370
280 PRINT""A$(A,B)
290 IFA$(A,B)=""THEN310
300 NEXT
310 PRINT"HIT ANY KEY TO RETURN TO MAIN MENU"
320 POKE198,0
330 GETA$:IFA$=""THEN330
340 GOTO120
350 GETA$:IFA$=""THEN350
360 C=VAL(A$)
370 POKE198,0
380 GETA$:IFA$=""THEN380
390 PRINT"[147]":RR=0:RETURN
400 DATA"[158]EMERGENCY NUMBERS[159]"
410 DATA"APPENDICITIS"
420 DATA"ARTIF. RESPIRATION"
430 DATA"BITES (ANIMAL)","BITES (INSECT)","BITES (SNAKE)"
440 DATA "BLEEDING (SEVERE)"
450 DATA"BONE & JOINT INJURIES","BRUISES"
460 DATA"BURNS (MINOR)"
470 DATA"BURNS (SERIOUS)","BURNS (V. SERIOUS)"
480 DATA"BURNS (CHEMICAL)","CHOKING","DRUGS"
490 DATA"EARACHE","ELECTRIC SHOCK","EPILEPSY"
500 DATA"EXPOSURE TO COLD","EXPOSURE TO HEAT"
510 DATA"FAINTING","FEVER","HEART ATTACK","HERNIAS","NOSE BLEED"
520 DATA"POISON (GAS)","POISON (ORAL)","SHOCK","SPRAINS","STRAINS"
530 DATA "STROKE","SUNBURN","SUNSTROKE","TOOTHACHE",""
540 DATA"[158]***EMERGENCY NUMBERS***[159]"
550 DATA"POISON CONTROL CENTER:  798-6200":DATA"DOCTOR:  823-4796"
560 DATA"AMBULANCE:  429-5111"
570 DATA"DOCTOR:  823-4796"
580 DATA"HOSPITAL:  823-1000"
590 DATA"POLICE:  429-8231"
600 DATA"FIRE:  823-2233",""
610 DATA"APPENDICITIS","1)[146] CALL YOUR DOCTOR."
620 DATA"2)[146] NEVER GIVE ANYTHING BY MOUTH."
630 DATA"3)[146] ICE BAG MAY REDUCE DISCOMFORT.",""
640 DATA"ARTIFICIAL RESPIRATION"
650 DATA"1)[146] TILT HEAD BACK."
660 DATA"2)[146] PINCH NOSE SHUT. BLOW AIR INTO          VICTIM'S MOUTH."
670 DATA"3)[146] REMOVE MOUTH;LOOK FOR EXHALATION."
680 DATA"4)[146] REPEAT BLOWING CYCLE."
690 DATA"ADULT[146] - BREATHE DEEPLY EVERY 5 SECONDS."
700 DATA"CHILD[146] - BREATHE GENTLY EVERY 3 SECONDS.",""
710 DATA"ANIMAL BITES","1)[146] STOP BLEEDING."
720 DATA"2)[146] WASH WOUND WITH SOAP & WATER."
730 DATA"3)[146] RESTRICT MOVEMENT OF AFFECTED PART."
740 DATA"4)[146] ISOLATE ANIMAL FOR RABIES TEST.",""
750 DATA"INSECT BITES","MINOR:","1)[146]"
760 DATA"[145][145]APPLY COLD SOOTHING LOTIONS(CALAMINE)"
770 DATA"SEVERE REACTIONS:","1)[146] GIVE ARTIFICIAL RESPIRATION"
780 DATA"[145]IF NECESSARY."
790 DATA"2)[146] APPLY CONSTRICTING BAND"
800 DATA"[145]2-4 INCHES ABOVE STING."
810 DATA"3)[146] KEEP AFFECTED PART DOWN"
820 DATA"[145]AND APPLY ICE PACK."
830 DATA"4)[146] IF ALLERGIC REACTION -"
840 DATA"[145]GET MEDICAL ATTENTION.",""
850 DATA"SNAKE BITES"
860 DATA"1)[146] GET VICTIM TO HOSPITAL."
870 DATA"2)[146] RESTRICT MOVEMENT OF VICTIM."
880 DATA"3)[146] IMMOBOLIZE AFFECTED PART BELOW"
890 DATA"[145]LEVEL OF HEART."
900 DATA"4)[146] APPLY CONSTRICTING BAND 2-4 INCHES"
910 DATA"[145]ABOVE BITE & BETWEEN BITE & HEART."
920 DATA"5)[146] MAKE INCISION LENGTH-WISE(NOT DEEP)"
930 DATA"[145]AT FANG MARKS."
940 DATA"6)[146] SUCK VENOM FROM WOUND & SPIT OUT."
950 DATA"[145]REPEAT FOR AT LEAST 40 MINUTES."
960 DATA"7)[146] TREAT FOR SHOCK.",""
970 DATA"SEVERE BLEEDING","1)[146] CALL FOR MEDICAL ASSISTANCE."
980 DATA"2)[146] LAY VICTIM DOWN & ELEVATE LEGS IN A     SEMI-FLEXED POSITION."
990 DATA"3)[146] CONTROL BLEEDING BY APPLYING DIRECT     PRESSURE TO WOUND."
1000 DATA"4)[146] IF BLEEDING CONTINUES APPLY DIGITAL"
1010 DATA"[145]PRESSURE AT PRESSURE POINT."
1020 DATA"5)[146] ELEVATE BLEEDING PART OF BODY           ABOVE LEVEL OF HEART."
1030 DATA"6)[146] MAINTAIN OPEN AIRWAY & GIVE VICTIM      PLENTY OF FRESH AIR."
1040 DATA"7)[146] PREVENT LOSS OF HEAT WITH BLANKETS      OVER & UNDER VICTIM.",""
1050 DATA"BONE & JOINT INJURIES"
1060 DATA"1)[146] KEEP BONE ENDS & ADJACENT JOINTS        STILL."
1070 DATA"2)[146] DO NOT MOVE VICTIM UNLESS ABSOLUTELY    NECESSARY."
1080 DATA"3)[146] APPLY WELL PADDED SPLINT TO INJURED     PART."
1090 DATA"4)[146] IF BROKEN BONE IS PROTRUDING, CONTROL   BLEEDING."
1100 DATA"[145][145]COVER WITH CLEAN DRESSING     BEFORE SPLINTING."
1110 DATA"5)[146] TREAT FOR SHOCK.",""
1120 DATA"BRUISES"
1130 DATA"1)[146] APPLY COLD CLOTH OR ICE PACK TO         RELIEVE PAIN AND"
1140 DATA"[145][145] REDUCE SWELLING.",""
1150 DATA"MINOR BURNS(1ST DEGREE)"
1160 DATA"1)[146] SUBMERGE REDDENED SKIN IN COLD WATER."
1170 DATA"2)[146] APPLY DRY DRESSING IF NECESSARY.",""
1180 DATA"SERIOUS BURNS(2ND DEGREE)"
1190 DATA"1)[146] SUBMERGE BLISTERED SKIN IN COLD         (NOT ICE) WATER."
1200 DATA"2)[146] APPLY CLEAN CLOTHS SOAKED IN ICE        WATER."
1210 DATA"3)[146] APPLY PROTECTIVE BANDAGE."
1220 DATA"4)[146] ELEVATE AFFECTED PARTS.",""
1230 DATA"VERY SERIOUS BURNS(3RD DEGREE)"
1240 DATA"1)[146] DO NOT REMOVE ADHERED PARTICLES OF      CLOTHING FROM CHARRED"
1250 DATA"[145][145]SKIN."
1260 DATA"2)[146] ELEVATE AFFECTED PARTS ABOVE VICTIM'S   HEART."
1270 DATA"3)[146] COVER BURNS WITH CLEAN THICK            DRESSINGS-NO OINTMENTS."
1280 DATA"4)[146] TREAT FOR SHOCK, THEN GET VICTIM TO     HOSPITAL.",""
1290 DATA"         CHEMICAL BURNS"
1300 DATA"1)[146] WASH FOR 5 OR MORE MINUTES WITH LARGE   AMOUNTS OF WATER."
1310 DATA"2)[146] APPLY CLEAN DRESSING; GET TO HOSPITAL",""
1320 DATA"       CHOKING","1)[146] IF VICTIM CAN COUGH, BREATHE,OR TALK,"
1330 DATA"[145][145]DO NOTHING."
1340 DATA"2)[146] IF VICTIM IS CLUTCHING THROAT,          ENCOURAGE VIGOROUS"
1350 DATA"[145][145]COUGHING."
1360 DATA"3)[146] IF VICTIM STILL CANNOT COUGH, BREATHE   OR TALK, GIVE 4 SHARP"
1370 DATA"[145]   BLOWS BETWEEN SHOULDER BLADES,"
1380 DATA"[145]   FOLLOWED BY 4 ABDOMINAL THRUSTS."
1390 DATA"[145]   REPEAT UNTIL OBJECT IS DISLODGED."
1400 DATA"4)[146] IF VICTIM IS A CHILD,HOLD UPSIDE DOWN   & SLAP SHARPLY ON BACK."
1410 DATA"5)[146] IF BREATHING HAS STOPPED & FOREIGN      MATERIAL CANNOT BE"
1420 DATA"[145][145]DISLODGED"
1430 DATA"[145]   ADMINISTER ARTIFICIAL RESPIRATION."
1440 DATA"[145]   GET PROMPT MEDICAL ATTENTION.",""
1450 DATA"      DRUGS"
1460 DATA"1)[146] KEEP AIRWAY OPEN; GIVE ARTIFICIAL"
1470 DATA"[145]VENTILATION OR CPR IF NEEDED."
1480 DATA"2)[146] TREAT FOR SHOCK."
1490 DATA"3)[146] PLACE UNCONSCIOUS VICTIM IN A 3"
1491 DATA"[145]   QUARTERS PRONE POSITION."
1500 DATA"4)[146] PROTECT VICTIM FROM INJURY."
1510 DATA"5)[146] HALLUCINOGENIC VICTIMS MAY NEED         CAREFUL ATTENTION."
1520 DATA"6)[146] GET VICTIM TO HOSPITAL.",""
1530 DATA"EARACHE"
1540 DATA"1)[146] CALL YOUR DOCTOR."
1550 DATA"2)[146] APPLY ICE BAG OR HOT WATER BOTTLE;      WHICHEVER GIVES RELIEF."
1560 DATA"","         ELECTRIC SHOCK"
1570 DATA"1)[146] TURN OFF ELECTRICITY IF POSSIBLE."
1580 DATA"2)[146] REMOVE ELECTRIC CONTACT FROM VICTIM     WITH DRY WOOD OR DRY"
1590 DATA"[145][145]CLOTH.","3)[146] GIVE ARTIFICIAL RESPIRATION."
1600 DATA"4)[146] KEEP VICTIM WARM.","5)[146] CALL YOUR DOCTOR.",""
1610 DATA"EPILEPSY"
1620 DATA"1)[146] PREVENT VICTIM FROM INJURING HIMSELF    BUT DO NOT RESTRAIN."
1630 DATA"2)[146] INSERT CLOTH BETWEEN TEETH TO PROTECT   TONGUE."
1640 DATA"3)[146] LOOSEN TIGHT COLLAR; KEEP VICTIM WARM",""
1650 DATA"EXPOSURE (TO COLD)"
1660 DATA"1)[146] COVER FROZEN PART.","2)[146] PROVIDE EXTRA CLOTHING BLANKETS."
1670 DATA"3)[146] BRING INDOORS."
1680 DATA"4)[146] IMMERSE FROZEN PART IN WARM WATER"
1681 DATA"[145]   (102-105F)OR WRAP GENTLY"
1690 DATA"[145]IN WARM BLANKETS. DO NOT RUB."
1700 DATA"5)[146] DO NOT APPLY HEAT, HEAT LAMPS, OR HOT   WATER BOTTLES."
1710 DATA"6)[146] ELEVATE AFFECTED PART.",""
1720 DATA"EXPOSURE(TO HEAT)"
1730 DATA"1)[146] APPLY COLD WATER OR RUBBING ALCOHOL     TO BARE SKIN."
1740 DATA"2)[146] USE FANS OR AIR CONDITIONING TO         PROMOTE COOLING."
1750 DATA"3)[146] CONTINUE UNTIL TEMPERATURE IS REDUCED"
1760 DATA"4)[146] GUARD AGAINST OVER CHILLING.",""
1770 DATA"FAINTING"
1780 DATA"1)[146] PLACE IN LYING POSITION WITH HEAD       LOWER THAN BODY."
1790 DATA"2)[146] LOOSEN CLOTHING &[160]APPLY COLD CLOTHS."
1800 DATA"3)[146] USE SMELLING SALTS & UPON REVIVAL:      COFFEE, FRESH AIR.",""
1810 DATA"FEVER"
1820 DATA"1)[146] INCREASE FLUID INTAKE."
1830 DATA"2)[146] DO NOT COVER EXCESSIVELY."
1840 DATA"3)[146] GIVE ASPIRIN OR ACETAMINOPHEN."
1850 DATA"4)[146] COOLING SPONGES WITH WATER ONLY."
1860 DATA"5)[146] CALL YOUR DOCTOR.",""
1870 DATA"HEART ATTACK"
1880 DATA"1)[146] CALL HOSPITAL (SPECIFY NEED             FOR OXYGEN)."
1890 DATA"2)[146] KEEP VICTIM LYING DOWN IN A             COMFORTABLE POSITION."
1900 DATA"3)[146] ADMINISTER ARTIFICIAL RESPIRATION IF    BREATHING HAS STOPPED."
1910 DATA"4)[146] GIVE CPR IF THERE IS NO PULSE           (IF TRAINED)."
1920 DATA"5)[146] CHECK VICTIM FOR EMERGENCY MEDICAL      INFORMATION &"
1930 DATA"[145][145]PRESCRIPTION FOR"
1940 DATA"[145]   MEDICINE. ADMINISTER IF PATIENT IS      CONSCIOUS.",""
1950 DATA"        HERNIAS"
1960 DATA"1)[146] LAY VICTIM ON BACK WITH KNEES           WELL DRAWN UP."
1970 DATA"2)[146] PLACE A CRAVAT BANDAGE AROUND           THIGHS AND TIE."
1980 DATA"3)[146] PUT BLANKET UNDER KNEES."
1990 DATA"4)[146] DO NOT TRY TO FORCE PROTRUSION          BACK INTO CAVITY."
2000 DATA"5)[146] COVER WITH BLANKET & TAKE TO HOSPITAL   IN THIS POSITION.",""
2010 DATA"NOSE BLEED"
2020 DATA"1)[146] TIP HEAD FORWARD, BLOW NOSE TO REMOVE   ALL CLOTS."
2030 DATA"2)[146] SQUEEZE NOSTRILS FIRMLY TOGETHER FOR    10 MINUTES.",""
2040 DATA"POISONING BY GAS"
2050 DATA"1)[146] CALL YOUR DOCTOR.","2)[146] OPEN OR BREAK WINDOWS."
2060 DATA"3)[146] SHUT OFF GAS OR STOP MOTOR."
2070 DATA"4)[146] REMOVE VICTIM TO FRESH AIR."
2080 DATA"5)[146] GIVE ARTIFICIAL RESPIRATION."
2090 DATA"6)[146] KEEP PATIENT WARM.",""
2100 DATA"POISONING BY MOUTH"
2110 DATA"1)[146] DILUTE POISON WITH WATER OR MILK.       DISCONTINUE IF"
2120 DATA"[145][145]NAUSEATED."
2130 DATA"2)[146] GET MEDICAL HELP & CALL POISON          CONTROL CENTER"
2140 DATA"[145][145]IMMEDIATLY."
2150 DATA"3)[146] DO NOT INDUCE VOMITING UNLESS SO        ADVISED BY POISON"
2160 DATA"[145][145]CONTROL CENTER."
2170 DATA"4)[146] DO NOT NEUTRALIZE. DO NOT GIVE OLIVE    OIL OR OTHER OILS."
2180 DATA"5)[146] KEEP AIRWAY OPEN. ADMINISTER            ARTIFICIAL RESPIRATION"
2190 DATA"[145][145]IF NEEDED."
2200 DATA"6)[146] TREAT FOR SHOCK."
2210 DATA"7)[146] SAVE LABEL, CONTAINER OR VOMITUS.",""
2220 DATA"SHOCK"
2230 DATA"1)[146] KEEP VICTIM LYING DOWN."
2240 DATA"2)[146] IF HEAD AND/OR CHEST INJURY, RAISE      HEAD & SHOULDERS."
2250 DATA"3)[146] IF IT WILL NOT AGGRAVATE ANY INJURY,    RAISE FEET."
2260 DATA"4)[146] KEEP PATIENT WARM, PREVENT LOSS OF      BODY HEAT."
2270 DATA"5)[146] TREAT FOR BREATH STOPPAGE, BLEEDING,    PAIN."
2280 DATA"6)[146] GET PROMPT MEDICAL ASSISTANCE.",""
2290 DATA"       SPRAINS"
2300 DATA"1)[146] ELEVATE INJURED AREA; PLACE AT          COMPLETE REST."
2310 DATA"2)[146] APPLY ICE BAG, COLD CLOTH, OR           CHEMICAL COLD PACK."
2320 DATA"3)[146] IF SWELLING & PAIN CONTINUE SEE         DOCTOR.",""
2330 DATA"       STRAINS"
2340 DATA"1)[146] GET VICTIM COMFORTABLE."
2350 DATA"2)[146] APPLY HOT, WET TOWEL."
2360 DATA"3)[146] KEEP INJURED AREA AT REST."
2370 DATA"4)[146] GET MEDICAL ATTENTION."
2380 DATA""
2382 DATA"STROKE"
2385 DATA"1)[146] COLD CLOTH ON FOREHEAD."
2390 DATA"2)[146] TURN HEAD OF VOMITING PATIENT TO        SIDE."
2400 DATA"3)[146] GIVE NO STIMULANTS AND NOTHING BY       MOUTH."
2410 DATA"4)[146] CALL YOUR DOCTOR."
2420 DATA""
2430 DATA"SUNBURN","1)[146] APPLY BURN CREAM OR PETROLEUM JELLY."
2440 DATA"2)[146] CALL DOCTOR IF FEVER, CHILLS, AND       SICKNESS OCCUR."
2450 DATA"3)[146] PROTECT REDNESS FROM FURTHER SUN.",""
2460 DATA"SUNSTROKE","1)[146] CALL YOUR DOCTOR."
2470 DATA"2)[146] MOVE PATIENT TO A COOL, SHADY SPOT."
2480 DATA"3)[146] SPONGE ENTIRE BODY WITH COLD WATER."
2490 DATA"4)[146] DO NOT GIVE STIMULANTS.",""
2500 DATA"TOOTHACHE","1)[146] NO TREATMENT."
2510 DATA"2)[146] APPLY COLD COMPRESSES UNTIL YOU GET     TO THE DENTIST.",""
2520 DATA"9"